data <- d2
CACE_S2_wate <- cace('waterboarding.followup', 
                     'torture.baseline', 
                     data, B)
CACE_S2_clos <- cace('guantanamo.followup', 
                     'torture.baseline', 
                     data, B)
CACE_S2_trus <- cace('trust.followup', 
                     'trust.baseline', 
                     data, B)
CACE_S2_appr <- cace('approval.followup', 
                     'approval.baseline', 
                     data, B)
CACE_S2_vint <- cace('vote.followup', 
                     'vote.baseline', 
                     data, B)
CACE_S2_actv <- cace('vote.november', 
                     'vote.baseline', 
                     data, B)

